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AFFIDAVIT UNDER 37 CFR §1.132 



I, STEVEN EDWARD ATKIN, Ph.D., declare as follows: 

1 . I am the inventor and applicant of the invention entitled "Bi-Directional Display", disclosed 
and claimed in U.S. Patent Application Serial No. 09/838,377 filed on April 19, 2001. 

2. The invention described and claimed in said application was conceived by me prior to 
October 4, 2000, as evidenced by the following facts which are of my own knowledge. 

(a) The paper cited by the Examiner of said patent application, entitled "Implementations of 
Bidirectional Reordering Algorithms", Florida Tech Technical Report CS-2000-1, by Steven 
Atkin and Ryan Stansifer was authored by me. During my attendance at Florida Institute of 
Technology, Dr. Stansifer was my faculty advisor, and as such, acted in an advisory, reviewer 
and editor role only. This Technical Report was written during the development of my 
invention as claimed in said Patent Application. The Technical Report number was assigned 
upon my request on October 4, 2000, in advance of completion of the actual report, as the policy 
of the Technical Report Library was to assign report numbers upon submission of a title, author 
name, and abstract. 

(b) I conceived of my invention prior to October 4, 2000, as evidenced by Appendix A to this 
affidavit, which includes several code files dated in June of 2000. These early prototypes of my 
invention were developed in order to test and prove the validity of the concept, some of the 
results of which were provided in the disclosure of the Patent Application. 
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(c) Following completion of verification testing and prototype code development, a disclosure 
was submitted to inside patent counsel for my employer, International Business Machines, on 
January 26, 2001. Shortly thereafter, I was notified thai the disclosure had been selected for 
patenting, and I was contacted by outside patent counsel Robert Frantz. This effort resulted in 
the filing of the Patent Application on April 19, 2001. 

3. As such, I am the sole inventor of the invention described and claimed in the Patent 
Application. Dr. Stansifcr provided advisory input only to the cited Technical Report, and thus 
is only a co-author, but not a co-inventor. Further, T conceived of and prototyped the invention 
disclosed and claimed in the Patent Application prior to October 4, 2000. 




Steven Edward Atkin 

Sworn and subscribed to before me this day of , ^ 2005. 



Notary Public 



My Commission Expires 



«, XVd t>l 'tl 5002 10/9L 
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PRINT OUT OF UniParser . java, file dated 6/15/2000 



/* UniParser .java 

* Steven Atkin 4/26/2000 

+ This class provides methods for parsing the Unicode data table published 

* by the Unicode consortium www.unicode.org. 
*/ 

import java.io.*; 
import java.lang.*; 
import j ava . text . * ; 
import java.util.*; 
import javax. swing. *; 

/* + 

* UniParser parses the Unicode data table for a specific attribute 

* and then generates a Haskell 98 (Hugs 98) module for accessing the 

* attribute information. 
*/ 

public class UniParser { 
public class Range { 
int start, end; 

public int getStartO { 
return start; 

} 

public int getEnd() { 
return end; 

public void setStart (int begin) { 
start = begin; 

} 

public void setEnd{int last) { 
end =» last; 

} 

public String toStringO { 
return ("(Ox" + 

Integer . toHexString (start) + 
",0x ,r + 

Integer . toHexSt ring ( end) + 
")") ; 

} 

} 

int unicodeField = 0 f attributeField = 0; 
Buf f eredReader dataln; 
Buf feredWriter dataOut; 
String delim = "; "; 

String moduleName, typeName, functionName; 
String attributes!]; 
String def aultAttrib; 
Vector tables [] ; 

/ + * 

* Constructor - must specify input data file and 

* output module name . 
*/ 

public UniParser (String in, String out) { 
try { 

dataln = new Buf f eredReader (new FileReader (in) ) ; 
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FileOutputStream fileOut = new FileOutputStream. (out); 
OutputStreamWriter str = new OutputStreamWriter (fileOut, 

"windows-1252") ; 

dataOut = new Buf f eredWriter (str) ; 

catch (UnsupportedEncodingException el) { 
System. out .println (el . toString ( ) ) ; 
return; 

} 

catch (IOException e) { 

System. out .print In (e, toString (} ) ; 
return; 

} 

} 

* Parse the individual line for specified token 

private String getToken (String data r mt n) t 
StringTokenizer parser; 
String token = 

parser = new StringTokenizer (data, delim) ; 
while (parser . hasMoreTokens () n > 0) { 

token = parser.nextTokenO ; 

— n; 

} 

return token; 

} 

/** 

* Determine the Unicode codepoint value 
*/ 

private String getCodePoint (String data) { 
return getToken (data, unicodeField) ; 

} 

/* + 

- * Get the attribute field 
*/ 

private String getAttribute (String data) { 
return getToken (data, attributeField) ; 

} 

private void insert (Range r, String bi) { 

/* Add the codepoint to the corresponding vector / 
for(int i = 0; i < attributes . length; ++ i) I 
if (bi. equals (attributes [ i] ) ) ( 
tables [i] . addElement (r) ; 
break; 

} 

} 

) 

* Parse the entire data file for tokens 
*/ 

public void parse ( ) { iin 
String in, cp, bidiattr, lastattr => ; 
int unival, lastunival « 0; 
Range range = new Range (); 
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StringTokenizer parser; 
try { 

/* Read one line at a time */ 

while ((in = dataln . readLine ( ) ) != null) { 

cp - getCodePoint (in) ; 

unival = Integer . parselnt (cp, 16); 

/* Get the attribute value */ 

bidiattr = getAttribute (in) . toLowerCase ( ) ; 

if (unival == 0) { 

lastattr = bidiattr; 
range = new Range ( ) ; 
range . setStart (0) ; 

} 

if (unival — Oxfffd) { 

range . setEnd ( unival ) ; 
insert (range, lastattr) ; 

} 

if { (bidiattr. equals (lastattr) ) { 
range . setEnd ( lastunival ) ; 
insert (range, lastattr) ; 
range new Range ( ) ; 
range . setStart (unival ) ; 
lastattr = bidiattr; 

} 

lastunival = unival; 

} 

dataln . close () ; j 

} 

catch (IOException e) { 

System. out. println ("error parsing data file") ; 
return; 

} 

} 

/** 

* Turn the vector's contents into a string 
V 

private String toString (Vector v) { 
int max = v.sizeO - 1; 
StringBuffer buf = new StringBuf f er ( ) ; 
Enumeration e = v. elements () ; 
buf .append ("[") ; 

for (int i = 0 ; i <= max ; i++) { 

String s = e . nextElement (). toString () ; 
buf .append (s) ; 
if (i < max) 
buf .append ,r ) ; 
/* Write four per line */ 
if ((i+l)%4 0 && (i < max)) 
buf .append ("\n ") ; 

} 

buf .append ("] ") ; 
return buf . toString () ; 
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* Write the Haskell module header 
*/ 

private void writeModuleHeader ( ) { 
Date date = new Date(); 

DateFormat df = DateFormat .get DateTimelnstance < 

DateFormat . FULL, DateFormat . FULL) ; 

try { 

dataOut. write ( " — This file is computer generated do not modify"); 
da taOut . newLine ( ) ; 

dataOut. writer— This is a Haskell 98 script file for Hugs98'M; 
dataOut . newLine { ) ; 

dataOut .writer — " + moduleName + ".hs created on " + df. format 
dataOut .write {" by java UniParser") ; 

dataOut .newLine () ; t , n 

dataOut. writer — This module provides functions for obtaining + 

"Unicode character attributes"); 
dataOut . newLine ( ) ; 

dataOut .write ("module " + moduleName + " ("); 
dataOut .newLine { ) ; 

dataOut .writer " + functionName + "); 
dataOut . newLine ( ) ; 

dataOut .write {" " + typeName + 'V); 
dataOut . newLine ( ) ; 



for(int i = 0; i < attributes . length; ++i) { 

dataOut. write ( ,T " + attributes [i] . toUpperCase {>) ; 
if (i != attributes. length - 1) 

dataOut. write {", ") ; 
dataOut . newLine ( ) ; 

} 

/* Write the default type */ 
if (defaultAttrib. length () 1= 0) 

* dataOut. writer / " + defaultAttrib. toUpperCase {)) ; 
dataOut . newLine ( ) ; 

dataOut. writer) " + " where"); 
dataOut . newLine ( ) ; 

} 

catch (IOException e) { 

System. out .println ("error writing module header") ; 

return; 

) 

} 

/** 

* Create the attribute type for the haskell module 
*/ 

private void writeModuleTypes ( ) { 
try{ 

dataOut .write ("data n + typeName + " « ") ; 
dataOut . newLine ( ) ; 

/* Write each attribute as a type constructor 

* with no arguments */ 

for(int i = 0; i < attributes . length; ++i) { 

dataOut .write (" " + attributes [i] . toUpperCase ()) ; 
if{i != attributes. length - 1) 
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dataOut. write { " D ; • 
dataOut . newLine ( } ; 

/* Write the default type */ 
if (defaultAttrib. length {) != 0) 

dataOut. write( r * I " + defaultAttrib. toUpperCase ()) ; 
dataOut . newLine ( ) ; 

dataOut .write ( n deriving (Eq, Show) ") ; 
dataOut . newLine { ) ; 

} 

catch (lOException e) { 

System. out .println ("error writing module types") ; 
return; 

) 

) 

/ + * 

* Write the test function for determing the attribute 

* of a Unicode character. 
*/ 

private void wr i t eModu leAc cess Fun c ( ) { 
try { 

dataOut . newLine ( ) ; 

dataOut .write (" — (Start range. End range)"); 
dataOut .newLine ( > ; 

dataOut .write {"member :: Integer -> ((Integer, Integer)] -> 



Bool") ; 



dataOut . newLine ( ) ; 

dataOut .write ("member a [] ~ False"); 
dataOut . newLine ( ) ; 

dataOut. write ("member a ( (x,y) : xs) " ) ; 

dataOut . newLine ( ) ; 

dataOut. write( ,T I a < x"); 

dataOut . newLine () ; 

dataOut. write(" ~False">; 

dataOut . newLine ( ) ; 

dataOut. writer I a <= y") ; 

dataOut . newLine ( ) ; 

dataOut. write ( " = True"); 

dataOut . newLine ( ) ; 

dataOut . write ( " I otherwise" ) ; 

dataOut . newLine ( ) ; 

dataOut. write(" - member a xs"); 

dataOut . newLine ( ) ; 

dataOut .newLine () ; . 
dataOut. write ( f unctionName + " : : Int -> " + typeName) ; 
dataOut . newLine ( ) ; 

dataOut .write (f unctionName + " x"); 

dataOut . newLine { ) ; 

/+ Check for all attributes */ 

for (int i - 0; i < attributes . length; ++i) { 

dataOut.write(" I member (tolnteger x) " + attrxbutes [i] ) ; 

dataOut. newLine () ; ^ ,n 

dat aOut. write {" - " + attributes UJ . toUpperCase ()) ; 

dataOut . newLine ( ) ; 

/* Check for default attribute */ 
if (defaultAttrib. length () != 0) { 

dataOut .write ( " I otherwise"); 

dataOut . newLine ( ) ; 
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dataOut -write ( fT - " + def aultAttrib . toUpperCase () } ; 

dataOut . newLine ( ) ; 

} 

} 

catch {IOException e) { 

System. out. print In ("error writing module accessor function"); 
return; 

} 

} 

/* * 

* Write each vector out as a table. 
*/ 

private void writeModuleTables ( ) { 
try { ■ 

for{int i = 0; i < attributes . length; { 

dataOut. write (attributes [i] + " = " + toString (tables [i] )) ; 
dataOut . newLine ( ) ; 

} 

) 

catch (IOException e) { 

System. out. println ( "error writing module tables"); 

} 

} 

' /* Set the name of the Haskell module */ 
public void setModuleName (String name) { 
moduleName = name; 

\ 

/* Set the data type name for the Haskell module */ 
public void setTypeName (String name) { 
typeName = name; 

} 

/* Set the name of the test function for the Haskell module */ 
public void setAccessFuncName (String name) { 
f unctionNaroe = name; 

) 

/* Set which column the Unicode field is in */ 
public void setUnicodeField (int num) { 
unicodeField = num; 

) 

/* Set which field to parse */ 
public void setParseField (int num) { 
attributeField = num; 

} 

/* Specify the list of attributes to parse for */ 
public void setAttributeArray (String [ ] attribs) { 
attributes = attribs; 

tables = new Vector [attributes . length] ; 
for (int i « 0; i < tables . length ; ++ i) { 
tables [i] = new Vector (); 

} 

> 

/+ Specify the default attribute */ 
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public void setDef aultAttribute (String name) { 
def aultAttrib = name; 

} 

I * * 

* Write the Haskell module file. 
*/ 

public void writeModule ( ) { 
writeModuleHeader { } ; 
writeModuleTypes ( ) ; 
writeModuleTables ( ) ; 
writeModuleAccessFunc ( ) ; 

try { 

dataOut . close ( ) ; 

} 

catch (IOException e) { 

System. out .println ( "error closing module file"); 
return; 

} 

\ 

/* Driver */ 

public static void main {String [ ] args) { 

String attributes!] - {"r", "al", "en", »es", "et", "an", »cs", 

"nsm", "bn", "b", "s", "ws", "on", "lre" f 
"rle", "pdf", "lro", "rlo", "n"}; 

UniParser p = new UniParser { "unidata" , "Bidi.hs"); 

p . setModuleName ( "Bidi " ) ; 

p.setTypeName ("Bidi") ; 

p.setAccessFuncName ("getBidiAttr") ; 

p . setUnicodeField ( 1 ) ; 

p.setParseField(5) ; 

p. setAttributeArray (attributes) ; 

p . setDef aultAttribute ( "1 " ) ; 

p .parse ( ) ; 

p . writeModule ( ) ; 

} 
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